home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _comms / comms / _riscbbs / !RiscBBS_System_Kernel_SysBBS < prev    next >
Encoding:
Text File  |  1991-11-08  |  24.7 KB  |  576 lines
  1. |
  2. | Arcland system file
  3. | Last modified - 07.11.91
  4. |
  5. {
  6.  priority 4 pitch 7000 voice Help!
  7.  address 2:292/500.21510
  8.  fake_addr 2:29000/21510
  9.  system `Arcland after Dark`
  10.  sysop `Carl Declerck`
  11.  origin `Arcland after Dark, Belgium. !RiscBBS development`
  12.  inbound <RiscBBS$Dir>.Inbound
  13.  outbound <RiscBBS$Dir>.Outbound
  14.  
  15.  defbase 0 50 0 <RiscBBS$Dir>.Base0 `File Base`
  16.  defbase 1 10 1 <RiscBBS$Dir>.Base1 `Message Base`
  17.  
  18.  defarea 0 1 500 10 10 `` `Private Messages` 3 LOCAL
  19.  defarea 1 1 10 10 10 `` `Messages to and from the Sysop` 3 LOCAL
  20.  defarea 2 1 10 10 10 `` `Netmail` 4 NET
  21.  defarea 3 1 10 10 10 `` `Cormoran syspoint` 4 ECHO SYSPOINT 2:292/500
  22.  defarea 4 1 10 10 10 `` `Belgian points` 3 ECHO POINTS.B 2:292/500
  23.  defarea 5 1 10 10 10 `` `Belgian modeming` 3 ECHO MODEM.B 2:292/500
  24.  defarea 6 1 10 10 10 `` `General talk` 3 ECHO ALGEMEEN.B 2:292/500
  25.  defarea 7 1 10 10 10 `` `Belgian sound-corner` 3 ECHO SOUND_CORNER.B 2:292/500
  26.  defarea 8 1 10 10 10 `` `Belgian multitasking` 3 ECHO MULTITAS.B 2:292/500
  27.  defarea 9 1 10 10 10 `` `Belgian gaming` 3 ECHO AVONTUUR.B 2:292/500
  28.  defarea 10 1 10 10 10 `` `Belgian public-domain` 3 ECHO P-DOMAIN.B 2:292/500
  29.  defarea 11 1 10 10 10 `` `Belgian Windows talk` 3 ECHO WINDOWS.B 2:292/500
  30.  defarea 12 1 10 10 10 `` `Dutch questions #1` 3 ECHO VRAGEN.512 2:292/500
  31.  defarea 13 1 10 10 10 `` `Dutch questions #2` 3 ECHO VRAGEN.028 2:292/500
  32.  defarea 14 1 10 10 10 `` `German Archimedes talk` 7 ECHO ARCHIMEDES.GER 2:292/500
  33.  defarea 15 1 10 10 10 `` `Intl. Archimedes talk` 7 ECHO ARCHIMEDES 2:292/500
  34.  defarea 16 1 10 10 10 `` `Intl. C talk` 0 ECHO C_ECHO_ 2:292/500
  35.  
  36.  defarea 0 0 10 10 10 `` `General Files` 0 LOCAL
  37.  defarea 1 0 10 10 10 `` `Graphics Files` 0 LOCAL
  38.  defarea 2 0 10 10 10 `` `Desktop Miscellaneous` 0 LOCAL
  39.  defarea 3 0 10 10 10 `` `Applications` 0 LOCAL
  40.  defarea 4 0 10 10 10 `` `Demos` 0 LOCAL
  41.  defarea 5 0 10 10 10 `` `Language Files` 0 LOCAL
  42.  defarea 6 0 10 10 10 `` `Soundtrackers` 0 LOCAL
  43.  defarea 7 0 10 10 10 `` `Communications` 0 LOCAL
  44.  defarea 8 0 10 10 10 `` `Games` 0 LOCAL
  45. }
  46. {defmenu 0 #echo 0 ^report `Main menu`}
  47. {option W= `Welcome` 10 `show <RiscBBS$Dir>.BBS.Welcome`}
  48. {option G= `Goodbye` 0 `menu 9`}
  49. {option B= `Bulletin` 10 `show <RiscBBS$Dir>.BBS.Bulletin`}
  50. {option A= `About BBS` 10 `menu 2`}
  51. {option Q= `Questionnaire/enquete` 10 `menu 5`}
  52. {option L= `Latest News` 10 `show <RiscBBS$Dir>.BBS.LatestNews`}
  53. {option Y= `Yell` 10 `show <RiscBBS$Dir>.BBS.YellSysop`}
  54. {option S= `System Info` 10 `show <RiscBBS$Dir>.BBS.SystemInfo`}
  55. {option O= `Online Leisure` 10 `menu 3`}
  56. {option P= `Personalia` 10 `menu 1`}
  57. {option T= `Utilities` 10 `menu 4`}
  58. {option U= `Userlist/search` 10 `u_list`}
  59. {option M= `Message Base` 10 `base 1`}
  60. {option F= `File Base` 10 `base 0`}
  61. {option ñ 10 `nil`}
  62. {option != `System Base` 0 `base -1`}
  63. {#echo 1 attr 0 7}
  64. {attr 4 3}  -- Arcland Main Menu --  {attr 0 2}  {_time} / {_online}  {attr 4 3 cll}  System load: {fg 6 _tasks fg 3} tasks      {fg 1 &ifkey S &else ~goto +nosysop}SYSOP{~label nosysop attr 0 7}
  65.  
  66.      [{fg 1}M{fg 7}]essage base                       [{fg 1}F{fg 7}]ile base
  67.  
  68.      [{fg 1}W{fg 7}]elcome screen                     [{fg 1}B{fg 7}]ulletin board
  69.      [{fg 1}A{fg 7}]bout RiscBBS & Arcland            [{fg 1}P{fg 7}]ersonal accounts
  70.      [{fg 1}L{fg 7}]atest news in Arcland             [{fg 1}Y{fg 7}]ell at Sysop
  71.  
  72.      [{fg 1}O{fg 7}]nline animations & games          [{fg 1}Q{fg 7}]uestionnaire / enquete
  73.      [{fg 1}S{fg 7}]ystem info                        [{fg 1}T{fg 7}]ools / utilities
  74.  
  75.      [{fg 1}U{fg 7}]serlist / search                  [{fg 1}G{fg 7}]oodbye (Logoff)
  76.  
  77.  {show <RiscBBS$Dir>.BBS.Select enddef}
  78. |
  79. {defmenu 1 #echo 0 ^report `Personal configurations`}
  80. {option A= `ANSI toggle` 10 `u_ansi`}
  81. {option P= `Prompts toggle` 10 `u_more`}
  82. {option L= `Lines` 10 `u_lines`}
  83. {option M= `Main Menu` 10 `menu 0`}
  84. {option ñ 10 `nil`}
  85. {option != `System Base` 0 `base -1`}
  86. {#echo 1 attr 0 7}
  87. {attr 4 3}  -- Personal Accounts --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  88.  
  89.         {fg 6}Username  : {fg 3 _user}
  90.         {fg 6}Userlevel : {fg 3 @eval 0 LEVEL @print 0}
  91.  
  92.         {fg 6}Downloaded        : {fg 3 @eval 0 `DOWNL/1024` @print 0 fg 1} Kb
  93.         {fg 6}Uploaded          : {fg 3 @eval 0 `UPL/1024` @print 0 fg 1} Kb
  94.         {fg 6}Ratio allowed     : {fg 3 @eval 0 RA_D @eval 1 RA_U @print 0 @send : @print 1}
  95.         {fg 6}Free for download : {fg 3 @eval 0 `(UPL*RA_D-DOWNL*RA_U)/1024` @print 0 fg 1} Kb
  96.  
  97.         {fg 6}Time left this call : {fg 3 @eval 0 `REMAIN/60` @print 0 fg 1} minutes{fg 7}
  98.  
  99.      [{fg 1}A{fg 7}]NSI graphics toggle               [{fg 1}P{fg 7}]rompts (More?) toggle
  100.      [{fg 1}L{fg 7}]ines per screen
  101.  
  102.      [{fg 1}M{fg 7}]ain Menu
  103.  
  104.  {show <RiscBBS$Dir>.BBS.Select enddef}
  105. |
  106. {defmenu 2 #echo 0 ^report `About... menu`}
  107. {option R= `About RiscBBS` 10 `show <RiscBBS$Dir>.BBS.About`}
  108. {option A= `About Arcland` 10 `show <RiscBBS$Dir>.BBS.Arcland`}
  109. {option G= `Guide` 10 `show <RiscBBS$Dir>.BBS.Guide`}
  110. {option M= `Main Menu` 10 `menu 0`}
  111. {option ñ 10 `nil`}
  112. {option != `System Base` 0 `base -1`}
  113. {#echo 1 attr 0 7}
  114. {attr 4 3}  -- About RiscBBS & Arcland --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  115.  
  116.      [{fg 1}R{fg 7}]iscBBS system info                [{fg 1}A{fg 7}]bout Arcland BBS
  117.      [{fg 1}G{fg 7}]uide to Arcland BBS               [{fg 1}M{fg 7}]ain Menu
  118.  
  119.  {show <RiscBBS$Dir>.BBS.Select enddef}
  120. |                   
  121. {defmenu 3 #echo 0 ^report `Animations & games menu`}
  122. {option 1= `Bambi` 10 `show <RiscBBS$Dir>.BBS.ANSI.Bambi`}
  123. {option 2= `Fireworks` 10 `show <RiscBBS$Dir>.BBS.ANSI.Fireworks`}
  124. {option 3= `StarTrek` 10 `show <RiscBBS$Dir>.BBS.ANSI.StarTrek`}
  125. {option 4= `Opus` 10 `show <RiscBBS$Dir>.BBS.ANSI.Opus`}
  126. {option 5= `The Dead` 10 `show <RiscBBS$Dir>.BBS.ANSI.TheDead`}
  127. {option 6= `Weights` 10 `show <RiscBBS$Dir>.BBS.ANSI.AnsiSize`}
  128. {option 7= `Fish Animation` 10 `show <RiscBBS$Dir>.BBS.ANSI.FishAnim`}
  129. {option B= `Breakout` 10 `show <RiscBBS$Dir>.BBS.ANSI.Breakout`}
  130. {option T= `Tetris` 10 `show <RiscBBS$Dir>.BBS.ANSI.Tetris`}
  131. {option D= `Today's dates` 10 `show <RiscBBS$Dir>.BBS.Today`}
  132. {option G= `Guess a number` 10 `show <RiscBBS$Dir>.BBS.Guess`}
  133. {option M= `Main Menu` 10 `menu 0`}
  134. {option ñ 10 `nil`}
  135. {option != `System Base` 0 `base -1`}
  136. {#echo 1 attr 0 7}
  137. {attr 4 3}  -- ANSI Animations & Games --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  138.  
  139.      [{fg 1}1{fg 7}]Bambi goes walking                [{fg 1}2{fg 7}]Fireworks galore
  140.      [{fg 1}3{fg 7}]StarTrek in space                 [{fg 1}4{fg 7}]Opus multicolour
  141.      [{fg 1}5{fg 7}]The dead                          [{fg 1}6{fg 7}]Weight lifting
  142.      [{fg 1}7{fg 7}]Fish Animation
  143.  
  144.      [{fg 1}B{fg 7}]reak-Out                          [{fg 1}T{fg 7}]etris
  145.      [{fg 1}G{fg 7}]uess a number
  146.  
  147.      [{fg 1}D{fg 7}]ates and Birthdays etc.           [{fg 1}M{fg 7}]ain Menu
  148.  
  149.  {show <RiscBBS$Dir>.BBS.Select enddef}
  150. |                   
  151. {defmenu 4 #echo 0 ^report `Utilities menu`}
  152. {option C= `CPU monitor` 10 `show <RiscBBS$Dir>.BBS.CPUmonitor`}
  153. {option S= `Supervisor mode` 20 `show <RiscBBS$Dir>.BBS.SVmode`}
  154. {option M= `Main Menu` 10 `menu 0`}
  155. {option ñ 10 `nil`}
  156. {option != `System Base` 0 `base -1`}
  157. {#echo 1 attr 0 7}
  158. {attr 4 3}  -- System Utilities --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  159.  
  160.      [{fg 1}C{fg 7}]PU monitor                        [{fg 1}S{fg 7}]upervisor mode
  161.  
  162.      [{fg 1}M{fg 7}]ain Menu
  163.  
  164.  {show <RiscBBS$Dir>.BBS.Select enddef}
  165. |
  166. {defmenu 5 #echo 0 ^report `Questionnaire menu`}
  167. {option Q= `Questionnaire` 10 `show <RiscBBS$Dir>.BBS.Questions`}
  168. {option E= `Enquete` 10 `show <RiscBBS$Dir>.BBS.Enquete`}
  169. {option M= `Main Menu` 10 `menu 0`}
  170. {option ñ 10 `nil`}
  171. {option != `System Base` 0 `base -1`}
  172. {#echo 1 attr 0 7}
  173. {attr 4 3}  -- Questionnaire / Enquete --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  174.  
  175.      [{fg 1}Q{fg 7}]uestionnaire (Higher level!)      [{fg 1}E{fg 7}]nquete (Not mandatory)
  176.  
  177.      [{fg 1}M{fg 7}]ain Menu
  178.  
  179.  {show <RiscBBS$Dir>.BBS.Select enddef}
  180. |
  181. {defmenu 9 #echo 0 ^report `Logoff menu`}
  182. {option M= `Main Menu` 10 `menu 0`}
  183. {option L= `Logoff` 0 `logoff`}
  184. {option W= `Write to sysop` 10 `m_enter B1 A1 S |logoff`}
  185. {option ñ 10 `nil`}
  186. {option != `System Base` 0 `base -1`}
  187. {#echo 1 attr 0 7}
  188. {attr 4 3}  -- Logoff Menu --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  189.  
  190.      [{fg 1}L{fg 7}]ogoff                             [{fg 1}W{fg 7}]rite to Sysop
  191.  
  192.      [{fg 1}M{fg 7}]ain Menu
  193.  
  194.  {show <RiscBBS$Dir>.BBS.Select enddef}
  195. |
  196. {defmenu 10 #echo 0 ^report `Messages main menu`}
  197. {option M= `Main Menu` 10 `base -1`}
  198. {option C= `Change area` 10 `a_change <RiscBBS$Dir>.BBS.MsgAreas`}
  199. {&if AREA<>1 option E= `Enter message` 10 `m_enter` &else option E= `Enter message` 10 `m_enter S`}
  200. {option B= `Browse` 10 `menu 16`}
  201. {option R= `Read mail` 10 `a_reset A0 B |menu 12 |m_read 1 A0 U`}
  202. {option S= `Send mail` 10 `m_enter A0 P`}
  203. {option P= `Personal scan` 10 `menu 18`}
  204. {option Z= `Zip messages` 10 `menu 19`}
  205. {option N= `New personal mail` 10 `a_reset A0 B G |menu 21 |m_read 1 G N U`}
  206. {option W= `Write to sysop` 10 `m_enter A1 S`}
  207. {option ñ 10 `nil`}
  208. {option != `System Base` 0 `base -1`}
  209. {#echo 1 attr 0 7}
  210. {attr 4 3}  -- {_base} : {_area} --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  211.  
  212.      [{fg 1}C{fg 7}]hange area                        [{fg 1}Z{fg 7}]ip through new messages
  213.  
  214.      [{fg 1}B{fg 7}]rowse through messages            [{fg 1}R{fg 7}]ead private mail
  215.      [{fg 1}E{fg 7}]nter message                      [{fg 1}S{fg 7}]end private mail
  216.  
  217.      [{fg 1}P{fg 7}]ersonal message scan              [{fg 1}W{fg 7}]rite to Sysop
  218.  
  219.      [{fg 1}N{fg 7}]ew personal mail scan             [{fg 1}M{fg 7}]ain Menu
  220.  
  221.  {show <RiscBBS$Dir>.BBS.Select enddef}
  222. |
  223. {defmenu 11 #echo 0 ^report `Browsing messages` errmenu 10}
  224. {option F= `Forward` 10 `m_read 1`}
  225. {option B= `Backward` 10 `m_read -1`}
  226. {option C= `Current` 10 `m_read 0`}
  227. {option S= `Start of area` 10 `m_read 1 RB`}
  228. {option E= `End of area` 10 `m_read -1 RE`}
  229. {option ñ= `Next` 10 `m_read 0 I`}
  230. {option R= `Reply` 10 `m_enter R`}
  231. {option K= `Kill` 10 `m_kill`}
  232. {option A= `Abort` 10 `menu 10`}
  233. {option != `System base` 0 `base -1`}
  234. {#echo 1 attr 0 6}
  235. Browse msgs: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  236.              {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  237. |
  238. {defmenu 12 #echo 0 ^report `Reading private mail` errmenu 10}
  239. {option F= `Forward` 10 `m_read 1 A0 U`}
  240. {option B= `Backward` 10 `m_read -1 A0 U`}
  241. {option C= `Current` 10 `m_read 0 A0 U`}
  242. {option S= `Start of area` 10 `m_read 1 A0 RB U`}
  243. {option E= `End of area` 10 `m_read -1 A0 RE U`}
  244. {option ñ= `Next` 10 `m_read 0 A0 I`}
  245. {option R= `Reply` 10 `m_enter R A0 P`}
  246. {option K= `Kill` 10 `m_kill`}
  247. {option A= `Abort` 10 `menu 10`}
  248. {option != `System Base` 0 `base -1`}
  249. {#echo 1 attr 0 6}
  250. Private mail: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  251.               {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  252. |
  253. {defmenu 13 #echo 0 ^report `Local scan for mail` errmenu 10}
  254. {option F= `Forward` 10 `m_read 1 U`}
  255. {option B= `Backward` 10 `m_read -1 U`}
  256. {option C= `Current` 10 `m_read 0 U`}
  257. {option S= `Start of area` 10 `m_read 1 U RB`}
  258. {option E= `End of area` 10 `m_read -1 U RE`}
  259. {option ñ= `Next` 10 `m_read 0 U I`}
  260. {option R= `Reply` 10 `m_enter R`}
  261. {option K= `Kill` 10 `m_kill`}
  262. {option A= `Abort` 10 `menu 10`}
  263. {option != `System Base` 0 `base -1`}
  264. {#echo 1 attr 0 6}
  265. Local scan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  266.             {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  267. |
  268. {defmenu 14 #echo 0 ^report `Message newscan` errmenu 10}
  269. {option F= `Forward` 10 `m_read 1 N`}
  270. {option B= `Backward` 10 `m_read -1 N`}
  271. {option C= `Current` 10 `m_read 0 N`}
  272. {option S= `Start of area` 10 `m_read 1 N RB`}
  273. {option E= `End of area` 10 `m_read -1 N RE`}
  274. {option ñ= `Next` 10 `m_read 0 N I`}
  275. {option R= `Reply` 10 `m_enter R`}
  276. {option K= `Kill` 10 `m_kill`}
  277. {option A= `Abort` 10 `menu 10`}
  278. {option != `System Base` 0 `base -1`}
  279. {#echo 1 attr 0 6}
  280. Newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  281.          {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  282. |
  283. {defmenu 15 #echo 0 ^report `Global scan for mail` errmenu 10}
  284. {option F= `Forward` 10 `m_read 1 G U`}
  285. {option B= `Backward` 10 `m_read -1 G U`}
  286. {option C= `Current` 10 `m_read 0 G U`}
  287. {option P= `Previous area` 10 `m_read 1 G RP U`}
  288. {option N= `Next area` 10 `m_read 1 G RN U`}
  289. {option ñ= `Next` 10 `m_read 0 G I U`}
  290. {option R= `Reply` 10 `m_enter R`}
  291. {option K= `Kill` 10 `m_kill`}
  292. {option A= `Abort` 10 `menu 10`}
  293. {option != `System base` 0 `base -1`}
  294. {#echo 1 attr 0 6}
  295. Global scan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  296.              {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  297. |
  298. {defmenu 16 #echo 0 ^report `Browse msgs` errmenu 10}
  299. {option L= `Locally` 10 `a_reset B |menu 11 |m_read 1`}
  300. {option G= `Globally` 10 `a_reset A0 B G |menu 17 |m_read 1 G`}
  301. {option A= `Abort` 10 `menu 10`}
  302. {option ñ 10 'nil'}
  303. {option != `System base` 0 `base -1`}
  304. {#echo 1 attr 0 6}
  305. Browse msgs: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  306. |
  307. {defmenu 17 #echo 0 ^report `Global browse msgs` errmenu 10}
  308. {option F= `Forward` 10 `m_read 1 G`}
  309. {option B= `Backward` 10 `m_read -1 G`}
  310. {option C= `Current` 10 `m_read 0 G`}
  311. {option P= `Previous area` 10 `m_read 1 G RP`}
  312. {option N= `Next area` 10 `m_read 1 G RN`}
  313. {option ñ= `Next` 10 `m_read 0 G I`}
  314. {option R= `Reply` 10 `m_enter R`}
  315. {option K= `Kill` 10 `m_kill`}
  316. {option A= `Abort` 10 `menu 10`}
  317. {option != `System base` 0 `base -1`}
  318. {#echo 1 attr 0 6}
  319. Browse Msgs: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  320.              {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  321. |
  322. {defmenu 18 #echo 0 ^report `Scan for mail` errmenu 10}
  323. {option L= `Locally` 10 `a_reset B |menu 13 |m_read 1 U`}
  324. {option G= `Globally` 10 `a_reset A0 B G |menu 15 |m_read 1 G U`}
  325. {option A= `Abort` 10 `menu 10`}
  326. {option ñ 10 'nil'}
  327. {option != `System base` 0 `base -1`}
  328. {#echo 1 attr 0 6}
  329. Scan mail: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  330. |
  331. {defmenu 19 #echo 0 ^report `Message newscan` errmenu 10}
  332. {option L= `Locally` 10 `a_reset B |menu 14 |m_read 1 N`}
  333. {option G= `Globally` 10 `a_reset A0 B G |menu 20 |m_read 1 G N`}
  334. {option A= `Abort` 10 `menu 10`}
  335. {option ñ 10 'nil'}
  336. {option != `System base` 0 `base -1`}
  337. {#echo 1 attr 0 6}
  338. Newscan: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  339. |
  340. {defmenu 20 #echo 0 ^report `Global newscan` errmenu 10}
  341. {option F= `Forward` 10 `m_read 1 G N`}
  342. {option B= `Backward` 10 `m_read -1 G N`}
  343. {option C= `Current` 10 `m_read 0 G N`}
  344. {option P= `Previous area` 10 `m_read 1 G RP N`}
  345. {option N= `Next area` 10 `m_read 1 G RN N`}
  346. {option ñ= `Next` 10 `m_read 0 G I N`}
  347. {option R= `Reply` 10 `m_enter R`}
  348. {option K= `Kill` 10 `m_kill`}
  349. {option A= `Abort` 10 `menu 10`}
  350. {option != `System base` 0 `base -1`}
  351. {#echo 1 attr 0 6}
  352. Glob newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  353.               {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  354. |
  355. {defmenu 21 #echo 0 ^report `Personal newscan` errmenu 10}
  356. {option F= `Forward` 10 `m_read 1 G N U`}
  357. {option B= `Backward` 10 `m_read -1 G N U`}
  358. {option C= `Current` 10 `m_read 0 G N U`}
  359. {option P= `Previous area` 10 `m_read 1 G RP N U`}
  360. {option N= `Next area` 10 `m_read 1 G RN N U`}
  361. {option ñ= `Next` 10 `m_read 0 G I N U`}
  362. {option R= `Reply` 10 `m_enter R`}
  363. {option K= `Kill` 10 `m_kill`}
  364. {option A= `Abort` 10 `menu 10`}
  365. {option != `System base` 0 `base -1`}
  366. {#echo 1 attr 0 6}
  367. Pers newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  368.               {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  369. |
  370. |
  371. {defmenu 50 #echo 0 ^report `Main file menu`}
  372. {option M= `Main Menu` 10 `base -1`}
  373. {option C= `Change area` 10 `a_change <RiscBBS$Dir>.BBS.FileAreas`}
  374. {option U= `Upload file(s)` 10 `menu 51`}
  375. {option D= `Download file(s)` 10 `menu 52`}
  376. {option V= `View archive` 10 `menu 64`}
  377. {option L= `List files` 10 `menu 62`}
  378. {option Z= `Zip new files` 10 `menu 60`}
  379. {option ñ 10 `nil`}
  380. {option != `System Base` 0 `base -1`}
  381. {#echo 1 attr 0 7}
  382. {attr 4 3}  -- {_base} : {_area} --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  383.  
  384.      [{fg 1}C{fg 7}]hange Area                        [{fg 1}Z{fg 7}]ip through new files 
  385.      [{fg 1}L{fg 7}]ist files                         
  386.  
  387.      [{fg 1}D{fg 7}]ownload file(s)                   [{fg 1}U{fg 7}]pload file(s)
  388.  
  389.      [{fg 1}V{fg 7}]iew archive contents              [{fg 1}M{fg 7}]ain Menu
  390.  
  391.  {show <RiscBBS$Dir>.BBS.Select enddef}
  392. |
  393. {defmenu 51 #echo 0 ^report `Uploading` errmenu 50}
  394. {option Q= `Quit upload` 10 `menu 50`}
  395. {option X= `Xmodem` 10 `f_receive X C`}
  396. {option ñ 10 `nil`}
  397. {option != `System Base` 0 `base -1`}
  398. {#echo 1 attr 0 7}
  399. {attr 4 3}  -- Upload Transfer Protocols --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  400.  
  401.      [{fg 1}X{fg 7}]modem (smart)
  402.  
  403.      [{fg 1}Q{fg 7}]uit upload
  404.  
  405.  {show <RiscBBS$Dir>.BBS.Select enddef}
  406. |
  407. {defmenu 52 #echo 0 ^report `Downloading` errmenu 50}
  408. {option Q= `Quit download` 10 `menu 50`}
  409. {option X= `Xmodem` 10 `f_send X 1 #`}
  410. {option ñ 10 `nil`}
  411. {option != `System Base` 0 `base -1`}
  412. {#echo 1 attr 0 7}
  413. {attr 4 3}  -- Download Transfer Protocols --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll bg 0}
  414.  
  415.      [{fg 1}X{fg 7}]modem (smart)
  416.  
  417.      [{fg 1}Q{fg 7}]uit download
  418.  
  419.  {show <RiscBBS$Dir>.BBS.Select enddef}
  420. |
  421. {defmenu 53 #echo 0 ^report `Downloading`}
  422. {option Q= `Quit` 10 `menu -1`}
  423. {option X= `Xmodem` 10 `f_send X 1 |menu -1`}
  424. {option ñ 10 `nil`}
  425. {option != `System Base` 0 `base -1`}
  426. {#echo 1 attr 0 6}
  427. Protocol: {fg 7}[{fg 1}X{fg 7}]modem  {fg 7}[{fg 1}Q{fg 7}]uit :{fg 1} {enddef}
  428. |
  429. {defmenu 54 #echo 0 ^report `Browsing files` errmenu 50}
  430. {option F= `Forward` 10 `f_list 1 L`}
  431. {option B= `Backward` 10 `f_list -1 L`}
  432. {option C= `Current` 10 `f_list 0 L`}
  433. {option D= `Download` 10 `retmenu 54 |menu 53`}
  434. {option K= `Kill file` 10 `f_kill`}
  435. {option V= `View archive` 10 `retmenu 54 |menu 58`}
  436. {option T= `Type file` 10 `f_type`}
  437. {option S= `Start of area` 10 `f_list 1 RB L`}
  438. {option E= `End of area` 10 `f_list -1 RE L`}
  439. {option ñ= `Next` 10 `f_list 0 I L`}
  440. {option A= `Abort` 10 `menu 50`}
  441. {option != `System Base` 0 `base -1`}
  442. {#echo 1 attr 0 6}
  443. Filelist: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  444.           {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  445. |
  446. {defmenu 55 #echo 0 ^report `Files local newscan` errmenu 50}
  447. {option F= `Forward` 10 `f_list 1 L N`}
  448. {option B= `Backward` 10 `f_list -1 L N`}
  449. {option C= `Current` 10 `f_list 0 L N`}
  450. {option D= `Download` 10 `retmenu 55 |menu 53`}
  451. {option K= `Kill file` 10 `f_kill`}
  452. {option V= `View archive` 10 `retmenu 55 |menu 58`}
  453. {option T= `Type file` 10 `f_type`}
  454. {option S= `Start of area` 10 `f_list 1 RB L N`}
  455. {option E= `End of area` 10 `f_list -1 RE L N`}
  456. {option ñ= `Next` 10 `f_list 0 I L N`}
  457. {option A= `Abort` 10 `menu 50`}
  458. {option != `System Base` 0 `base -1`}
  459. {#echo 1 attr 0 6}
  460. Newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  461.          {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}S{fg 7}]tart of area  [{fg 1}E{fg 7}]nd of area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  462. |
  463. {defmenu 56 #echo 0 ^report `Filelist` errmenu 50}
  464. {option L= `Long filelist` 10 `a_reset B |menu 54 |f_list 1 L`}
  465. {option S= `Short filelist` 10 `f_list -1 RE S`}
  466. {option A= `Abort` 10 `menu 50`}
  467. {option ñ 10 `nil`}
  468. {option != `System Base` 0 `base -1`}
  469. {#echo 1 attr 0 6}
  470. Filelist: {fg 7}[{fg 1}L{fg 7}]ong  [{fg 1}S{fg 7}]hort  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  471. |
  472. {defmenu 57 #echo 0 ^report `Files newscan` errmenu 50}
  473. {option L= `Long newscan` 10 `menu 55 |f_list 1 L N`}
  474. {option S= `Short newscan` 10 `f_list -1 RE S N`}
  475. {option A= `Abort` 10 `menu 50`}
  476. {option ñ 10 `nil`}
  477. {option != `System Base` 0 `base -1`}
  478. {#echo 1 attr 0 6}
  479. Newscan: {fg 7}[{fg 1}L{fg 7}]ong  [{fg 1}S{fg 7}]hort  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  480. |
  481. {defmenu 58 #echo 0 ^report `View archive`}
  482. {option R= `Root only` 10 `f_view |menu -1`}
  483. {option F= `Full recursion` 10 `f_view R |menu -1`}
  484. {option A= `Abort` 10 `menu -1`}
  485. {option ñ 10 `nil`}
  486. {option != `System Base` 0 `base -1`}
  487. {#echo 1 attr 0 6}
  488. View archive: {fg 7}[{fg 1}R{fg 7}]oot only  [{fg 1}F{fg 7}]ully recursive  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  489. |
  490. {defmenu 60 #echo 0 ^report `Files newscan` errmenu 50}
  491. {option L= `Locally` 10 `a_reset B |menu 57`}
  492. {option G= `Globally` 10 `a_reset A0 B G |menu 61 |f_list 1 G N L`}
  493. {option A= `Abort` 10 `menu 50`}
  494. {option ñ 10 'nil'}
  495. {option != `System base` 0 `base -1`}
  496. {#echo 1 attr 0 6}
  497. Newscan: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  498. |
  499. {defmenu 61 #echo 0 ^report `Files global newscan` errmenu 50}
  500. {option F= `Forward` 10 `f_list 1 G N L`}
  501. {option B= `Backward` 10 `f_list -1 G N L`}
  502. {option C= `Current` 10 `f_list 0 G N L`}
  503. {option D= `Download` 10 `retmenu 61 |menu 53`}
  504. {option K= `Kill file` 10 `f_kill`}
  505. {option V= `View archive` 10 `retmenu 61 |menu 58`}
  506. {option T= `Type file` 10 `f_type`}
  507. {option P= `Previous area` 10 `f_list 1 G RP N L`}
  508. {option N= `Next area` 10 `f_list 1 G RN N L`}
  509. {option ñ= `Next` 10 `f_list 0 G I N L`}
  510. {option A= `Abort` 10 `menu 50`}
  511. {option != `System Base` 0 `base -1`}
  512. {#echo 1 attr 0 6}
  513. Newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  514.          {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  515. |
  516. {defmenu 62 #echo 0 ^report `Files list` errmenu 50}
  517. {option L= `Locally` 10 `a_reset B |menu 56`}
  518. {option G= `Globally` 10 `a_reset A0 B G |menu 63 |f_list 1 G L`}
  519. {option A= `Abort` 10 `menu 50`}
  520. {option ñ 10 'nil'}
  521. {option != `System base` 0 `base -1`}
  522. {#echo 1 attr 0 6}
  523. Filelist: {fg 7}[{fg 1}L{fg 7}]ocally  [{fg 1}G{fg 7}]lobally  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  524. |
  525. {defmenu 63 #echo 0 ^report `Files global list` errmenu 50}
  526. {option F= `Forward` 10 `f_list 1 G L`}
  527. {option B= `Backward` 10 `f_list -1 G L`}
  528. {option C= `Current` 10 `f_list 0 G L`}
  529. {option D= `Download` 10 `retmenu 63 |menu 53`}
  530. {option K= `Kill file` 10 `f_kill`}
  531. {option V= `View archive` 10 `retmenu 63 |menu 58`}
  532. {option T= `Type file` 10 `f_type`}
  533. {option P= `Previous area` 10 `f_list 1 G RP L`}
  534. {option N= `Next area` 10 `f_list 1 G RN L`}
  535. {option ñ= `Next` 10 `f_list 0 G I L`}
  536. {option A= `Abort` 10 `menu 50`}
  537. {option != `System Base` 0 `base -1`}
  538. {#echo 1 attr 0 6}
  539. Filelist: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}V{fg 7}]iew  [{fg 1}T{fg 7}]ype  [{fg 1}K{fg 7}]ill
  540.           {fg 7}[{fg 1}D{fg 7}]ownload  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  541. |
  542. {defmenu 64 #echo 0 ^report `View archive`}
  543. {option R= `Root only` 10 `f_view #|menu 50`}
  544. {option F= `Full recursion` 10 `f_view R # |menu 50`}
  545. {option A= `Abort` 10 `menu 50`}
  546. {option ñ 10 `nil`}
  547. {option != `System Base` 0 `base -1`}
  548. {#echo 1 attr 0 6}
  549. View archive: {fg 7}[{fg 1}R{fg 7}]oot only  [{fg 1}F{fg 7}]ully recursive  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  550. |
  551. {defmenu 80 #echo 0 ^report `Login mailscan` errmenu 0}
  552. {option Y= `Yes` 0 `base 1 |a_reset A0 B G |menu 81 |m_read 1 G N U`}
  553. {option N= `No` 0 `base -1`}
  554. {option ñ= `Yes` 0 `base 1 |a_reset A0 B G |menu 81 |m_read 1 G N U`}
  555. {#echo 1 bg 0}
  556. {attr 4 3}  -- Arcland Mail-Check --  {attr 0 2}  {_time} / {_online fg 7}  {bg 4 cll attr 0 3}
  557.  
  558.  
  559. Do you wish me to scan for new mail to you? [Y/n] : {fg 7 enddef}
  560. |
  561. {defmenu 81 #echo 0 errmenu 0}
  562. {option F= `Forward` 10 `m_read 1 G N U`}
  563. {option B= `Backward` 10 `m_read -1 G N U`}
  564. {option C= `Current` 10 `m_read 0 G N U`}
  565. {option P= `Previous area` 10 `m_read 1 G RP N U`}
  566. {option N= `Next area` 10 `m_read 1 G RN N U`}
  567. {option ñ= `Next` 10 `m_read 0 G I N U`}
  568. {option R= `Reply` 10 `m_enter R`}
  569. {option K= `Kill` 10 `m_kill`}
  570. {option A= `Abort` 10 `base -1`}
  571. {option != `System base` 0 `base -1`}
  572. {#echo 1 attr 0 6}
  573. Pers newscan: {fg 7}[{fg 1}F{fg 7}]orward  [{fg 1}B{fg 7}]ackward  [{fg 1}C{fg 7}]urrent  [{fg 1}R{fg 7}]eply
  574.               {fg 7}[{fg 1}K{fg 7}]ill  [{fg 1}P{fg 7}]revious area  [{fg 1}N{fg 7}]ext area  [{fg 1}A{fg 7}]bort : {fg 1 enddef}
  575. |
  576.